home *** CD-ROM | disk | FTP | other *** search
/ PC Home 48 / Fun Clicp Art 5000.iso / r / mbm8 / 00833_SU-RN fi.ls < prev    next >
Encoding:
Text File  |  1996-06-10  |  481 b   |  26 lines

  1. on exitFrame
  2.   global gLocLabel
  3.   go(label(gLocLabel))
  4. end
  5.  
  6. on idle
  7.   global g1erSprLoc, gSurvolPrec, gSurvolAct
  8.   if rollOver(g1erSprLoc) then
  9.     set gSurvolAct to g1erSprLoc
  10.   else
  11.     if rollOver(g1erSprLoc + 1) then
  12.       set gSurvolAct to g1erSprLoc + 1
  13.     else
  14.       set gSurvolAct to 0
  15.     end if
  16.   end if
  17.   if gSurvolAct <> gSurvolPrec then
  18.     if gSurvolAct <> 0 then
  19.       curseur(1)
  20.     else
  21.       curseur(-1)
  22.     end if
  23.     set gSurvolPrec to gSurvolAct
  24.   end if
  25. end
  26.